﻿Imports BE.BE
Imports BL.BL


Public Class frmAltaExpediente

    Private Sub frmAltaExpedientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With Me.lbSiniestroTipo
            .Items.Add("DMA - DAÑOS MATERIALES")
            .Items.Add("LES - LESIONES")
        End With

        'With Me.tvPrueba
        '    .BeginUpdate()

        '    .Nodes.Add("Expediente")

        '    .Nodes(0).Nodes.Add("Extra Judicial")
        '    .Nodes(0).Nodes(0).Nodes.Add("Iniciado")
        '    .Nodes(0).Nodes(0).Nodes.Add("En Mediación")
        '    .Nodes(0).Nodes(0).Nodes.Add("Reclamo a Compañia")
        '    .Nodes(0).Nodes(0).Nodes.Add("Cerrado")

        '    .Nodes(0).Nodes.Add("Judicial")
        '    .Nodes(0).Nodes(1).Nodes.Add("Iniciado")
        '    .Nodes(0).Nodes(1).Nodes.Add("Abierto a Pruebas")
        '    .Nodes(0).Nodes(1).Nodes.Add("Alegato")
        '    .Nodes(0).Nodes(1).Nodes.Add("Acuerdo")
        '    .Nodes(0).Nodes(1).Nodes.Add("Sentencia Firme")

        '    .Nodes(0).Nodes.Add("Cerrado")

        '    .EndUpdate()
        'End With

        With Me.dgvClientes
            .DataSource = Cliente_BL.listarClientes
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

        End With

        With Me.dgvAbogaEstudio
            .DataSource = AbogadoEstudio_BL.listarAbogadoEstudio
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
        End With

        With Me.dgvContraparte
            .DataSource = Contraparte_BL.listarContrapartes
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
        End With


        With Me.dgvAbogAseguradora
            .DataSource = AbogadoAseguradora_BL.listarAbogadoAseguradora
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
        End With


        'Helper_FL.setearPermisos(frmPrincipal.usr, Me)

    End Sub


    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim mExpediente As New Expediente_BE
        Dim mCliente As New Cliente_BE
        Dim mAbogadoEstudio As New AbogadoEstudio_BE
        Dim mAbogadoAseguradora As New AbogadoAseguradora_BE
        Dim mContraparte As New Contraparte_BE
        Dim mAsegurador As New Asegurador_BE

        If Me.TextBox1.Text <> "" Then
            mExpediente.Siniestro = Me.TextBox1.Text
        Else
            MsgBox("Debe colocar el título del siniestro")
            Exit Sub
        End If
        If Not IsNothing(Me.lbSiniestroTipo.SelectedItem) Then
            mExpediente.Rubro = Me.lbSiniestroTipo.SelectedItem.ToString
        Else
            MsgBox("Debe selecionar un tipo de siniestro")
            Exit Sub
        End If

        If Me.TextBox2.Text <> "" And IsNumeric(Me.TextBox2.Text) Then

            mExpediente.NumeroExpediente = Me.TextBox2.Text

        Else
            MsgBox("Debe llenar el campo número de expediente")
            Exit Sub
        End If


        If Me.dgvClientes.SelectedRows.Count = 1 Then

            mCliente.IdCliente = Me.dgvClientes.SelectedRows(0).Cells(2).Value
            mCliente.Nombre = Me.dgvClientes.SelectedRows(0).Cells(4).Value.ToString
            mCliente.Apellido = Me.dgvClientes.SelectedRows(0).Cells(5).Value.ToString
            mCliente.DNI = Me.dgvClientes.SelectedRows(0).Cells(6).Value.ToString
            mCliente.FechaNacimiento = Me.dgvClientes.SelectedRows(0).Cells(7).Value.ToString
            mCliente.Poliza = Me.dgvClientes.SelectedRows(0).Cells(1).Value.ToString
            mCliente.Id = Me.dgvClientes.SelectedRows(0).Cells(3).Value.ToString
            mCliente.Estado = Me.dgvClientes.SelectedRows(0).Cells(0).Value.ToString

            mExpediente.Cliente = mCliente
        Else
            MsgBox("debe seleccionar un cliente")
            Exit Sub
        End If

        If Me.dgvAbogaEstudio.SelectedRows.Count = 1 Then

            mAbogadoEstudio.IdAbogadoEstudio = CInt(Me.dgvAbogaEstudio.SelectedRows(0).Cells(0).Value)
            mAbogadoEstudio.nombre = Me.dgvAbogaEstudio.SelectedRows(0).Cells(5).Value.ToString
            mAbogadoEstudio.apellido = Me.dgvAbogaEstudio.SelectedRows(0).Cells(6).Value.ToString
            mAbogadoEstudio.Dni = Me.dgvAbogaEstudio.SelectedRows(0).Cells(1).Value.ToString
            mAbogadoEstudio.FechaNacimiento = Me.dgvAbogaEstudio.SelectedRows(0).Cells(2).Value.ToString
            mAbogadoEstudio.id = Me.dgvAbogaEstudio.SelectedRows(0).Cells(3).Value.ToString

            mExpediente.AbogadoEstudio = mAbogadoEstudio
        Else
            MsgBox("debe seleccionar un Abogado del Estudio")
            Exit Sub
        End If

        If Me.dgvContraparte.SelectedRows.Count = 1 Then
            mContraparte.IdContraparte = Me.dgvContraparte.SelectedRows(0).Cells(0).Value
            mContraparte.Nombre = Me.dgvContraparte.SelectedRows(0).Cells(2).Value.ToString
            mContraparte.Apellido = Me.dgvContraparte.SelectedRows(0).Cells(3).Value.ToString
            mContraparte.DNI = Me.dgvContraparte.SelectedRows(0).Cells(4).Value.ToString
            mContraparte.FechaNacimiento = Me.dgvContraparte.SelectedRows(0).Cells(5).Value.ToString
            mContraparte.Id = Me.dgvContraparte.SelectedRows(0).Cells(1).Value.ToString

            mExpediente.Contraparte = mContraparte
        Else
            MsgBox("debe seleccionar un Contraparte")
            Exit Sub
        End If



        If Me.dgvAbogAseguradora.SelectedRows.Count = 1 Then
            mAbogadoAseguradora.IdAbogadoAseguradora = Me.dgvAbogAseguradora.SelectedRows(0).Cells(0).Value
            mAbogadoAseguradora.Nombre = Me.dgvAbogAseguradora.SelectedRows(0).Cells(3).Value.ToString
            mAbogadoAseguradora.Apellido = Me.dgvAbogAseguradora.SelectedRows(0).Cells(4).Value.ToString
            mAbogadoAseguradora.DNI = Me.dgvAbogAseguradora.SelectedRows(0).Cells(5).Value.ToString
            mAbogadoAseguradora.FechaNacimiento = Me.dgvAbogAseguradora.SelectedRows(0).Cells(6).Value.ToString
            mAbogadoAseguradora.Id = Me.dgvAbogAseguradora.SelectedRows(0).Cells(2).Value.ToString

            mExpediente.AbogadoAseguradora = mAbogadoAseguradora
        Else
            MsgBox("debe seleccionar un Abogado de la Aseguradora")
            Exit Sub
        End If

        Try
            Expediente_BL.guardar(mExpediente)
            MsgBox("Expediente creado con éxito")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Me.Close()
        Me.Dispose()

    End Sub

End Class


'With Me.tvPrueba
'    .BeginUpdate()
'    .Nodes.Add("Padre")
'    .Nodes(0).Nodes.Add("Hijo1")
'    .Nodes(0).Nodes.Add("Hijo2")
'    .Nodes(0).Nodes(1).Nodes.Add("Nieto")
'    .Nodes(0).Nodes(1).Nodes(0).Nodes.Add("Bis Nieto")
'    .EndUpdate()
'End With
